home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / QuickTime™ 1.0 Interfaces / ImageCodec.lisp < prev    next >
Encoding:
Text File  |  1993-09-16  |  7.9 KB  |  229 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; 
  3. ; 
  4. ; Created: Friday, September 27, 1991 10:04:39 AM
  5. ;  ImageCodec.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ; 
  9. ;  Copyright Apple Computer, Inc. 1991
  10. ;  All rights reserved
  11. ; 
  12. ; 
  13.  
  14. ; $IFC UNDEFINED UsingIncludes
  15. ; $SETC UsingIncludes := 0
  16. ; $ENDC
  17.  
  18. ; $IFC NOT UsingIncludes
  19.  
  20. ; $ENDC
  21.  
  22. ; $IFC UNDEFINED UsingImageCodec
  23. ; $SETC UsingImageCodec := 1
  24.  
  25. ; $I+
  26. ; $SETC ImageCodecIncludes := UsingIncludes
  27. ; $SETC UsingIncludes := 1
  28. ; $IFC UNDEFINED UsingQuickDraw
  29.  
  30. (require-interface 'QUICKDRAW)  ; $I $$Shell(PInterfaces)QuickDraw.p
  31. ; $ENDC
  32. ; $IFC UNDEFINED UsingQDOffscreen
  33.  
  34. (require-interface 'QDOFFSCREEN); $I $$Shell(PInterfaces)QDOffscreen.p
  35. ; $ENDC
  36.  
  37. ; $IFC UNDEFINED UsingTypes
  38.  
  39. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  40. ; $ENDC
  41.  
  42. ; $IFC UNDEFINED UsingComponents
  43.  
  44. (require-interface 'COMPONENTS) ; $I $$Shell(PInterfaces)Components.p
  45. ; $ENDC
  46.  
  47. ; $IFC UNDEFINED UsingImageCompression
  48.  
  49. (require-interface 'IMAGECOMPRESSION); $I $$Shell(PInterfaces)ImageCompression.p
  50. ; $ENDC
  51.  
  52. ; $SETC UsingIncludes := ImageCodecIncludes
  53.  
  54. ;     codec component selectors    
  55. ;     codec selectors 0-127 are reserved by Apple 
  56. ;     codec selectors 128-191 are subtype specific 
  57. ;     codec selectors 192-255 are vendor specific 
  58. ;      codec selectors 256-32767 are reserved by Apple 
  59. ;     negative selectors are reserved by the Component Manager 
  60.  
  61. (defconstant $codecGetCodecInfo #X0)
  62. (defconstant $codecGetCompressionTime #X1)
  63. (defconstant $codecGetMaxCompressionSize #X2)
  64. (defconstant $codecPreCompress #X3)
  65. (defconstant $codecBandCompress #X4)
  66. (defconstant $codecPreDecompress #X5)
  67. (defconstant $codecBandDecompress #X6)
  68. (defconstant $codecCDSequenceBusy #X7)
  69. (defconstant $codecGetCompressedImageSize #X8)
  70. (defconstant $codecGetSimilarity #X9)
  71. (defconstant $codecTrimImage #XA)
  72.  
  73. ;     codec capabilities flags    
  74.  
  75. (defconstant $codecCanScale #X1)
  76. (defconstant $codecCanMask #X2)
  77. (defconstant $codecCanMatte #X4)
  78. (defconstant $codecCanTransform #X8)
  79. (defconstant $codecCanTransferMode #X10)
  80. (defconstant $codecCanCopyPrev #X20)
  81. (defconstant $codecCanSpool #X40)
  82. (defconstant $codecCanClipVertical #X80)
  83. (defconstant $codecCanClipRectangular #X100)
  84. (defconstant $codecCanRemapColor #X200)
  85. (defconstant $codecCanFastDither #X400)
  86. (defconstant $codecCanSrcExtract #X800)
  87. (defconstant $codecCanCopyPrevComp #X1000)
  88. (defconstant $codecCanAsync #X2000)
  89. (defconstant $codecCanMakeMask #X4000)
  90. (defconstant $codecCanShift #X8000)
  91.  
  92. (defconstant $codecConditionFirstBand #X1)
  93. (defconstant $codecConditionLastBand #X2)
  94. (defconstant $codecConditionCodecChangedMask #X80000000)
  95.  
  96. (defconstant $codecInfoResourceType :|cdci|);  codec info resource type 
  97.  
  98. (defrecord CodecCapabilities 
  99.    (flags :SIGNED-LONG)
  100.    (wantedPixelSize :SIGNED-INTEGER)
  101.    (extendWidth :SIGNED-INTEGER)
  102.    (extendHeight :SIGNED-INTEGER)
  103.    (bandMin :SIGNED-INTEGER)
  104.    (bandInc :SIGNED-INTEGER)
  105.    (pad :SIGNED-INTEGER)
  106.    (time :SIGNED-INTEGER)
  107.    )
  108. (def-mactype :CODECCAPABILITIESPTR (find-mactype :POINTER))
  109.  
  110. (defrecord CodecCompressParams 
  111.    (sequenceID :SIGNED-LONG)    ;  precompress,bandcompress 
  112.    (imageDescription (:HANDLE :IMAGEDESCRIPTION));  precompress,bandcompress 
  113.    (data :POINTER)
  114.    (bufferSize :SIGNED-LONG)
  115.    (frameNumber :SIGNED-LONG)
  116.    (startLine :SIGNED-LONG)
  117.    (stopLine :SIGNED-LONG)
  118.    (conditionFlags :SIGNED-LONG)
  119.    (callerFlags :SIGNED-INTEGER)
  120.    (capabilities (:POINTER :CODECCAPABILITIES));  precompress,bandcompress 
  121.    (ProgressProcRecord :PROGRESSPROCRECORD)
  122.    (CompletionProcRecord :COMPLETIONPROCRECORD)
  123.    (FlushProcRecord :FLUSHPROCRECORD)
  124.    (srcPixMap :PIXMAP)          ;  precompress,bandcompress 
  125.    (prevPixMap :PIXMAP)
  126.    (spatialQuality :SIGNED-LONG)
  127.    (temporalQuality :SIGNED-LONG)
  128.    (similarity :SIGNED-LONG)
  129.    (reserved (:ARRAY :SIGNED-LONG 2))
  130.    )
  131. (def-mactype :CODECCOMPRESSPARAMSPTR (find-mactype :POINTER))
  132.  
  133. (defrecord CodecDecompressParams 
  134.    (sequenceID :SIGNED-LONG)    ;  predecompress,banddecompress 
  135.    (imageDescription (:HANDLE :IMAGEDESCRIPTION));  predecompress,banddecompress 
  136.    (data :POINTER)
  137.    (bufferSize :SIGNED-LONG)
  138.    (frameNumber :SIGNED-LONG)
  139.    (startLine :SIGNED-LONG)
  140.    (stopLine :SIGNED-LONG)
  141.    (conditionFlags :SIGNED-LONG)
  142.    (callerFlags :SIGNED-INTEGER)
  143.    (capabilities (:POINTER :CODECCAPABILITIES));  predecompress,banddecompress 
  144.    (ProgressProcRecord :PROGRESSPROCRECORD)
  145.    (CompletionProcRecord :COMPLETIONPROCRECORD)
  146.    (DataProcRecord :DATAPROCRECORD)
  147.    (port (:POINTER :CGRAFPORT)) ;  predecompress,banddecompress 
  148.    (dstPixMap :PIXMAP)          ;  predecompress,banddecompress 
  149.    (maskBits (:POINTER :BITMAP))
  150.    (mattePixMap (:POINTER :PIXMAP))
  151.    (srcRect :RECT)              ;  predecompress,banddecompress 
  152.    (matrix (:POINTER :MATRIXRECORD));  predecompress,banddecompress 
  153.    (accuracy :SIGNED-LONG)      ;  predecompress,banddecompress 
  154.    (transferMode :SIGNED-INTEGER);  predecompress,banddecompress 
  155.    (reserved (:ARRAY :SIGNED-LONG 2))
  156.    )
  157. (def-mactype :CODECDECOMPRESSPARAMSPTR (find-mactype :POINTER))
  158.  
  159.  
  160. #| Not in ROM
  161. (deftrap _CDGETCODECINFO ((STORAGE :HANDLE) (INFO (:POINTER :CODECINFO)))
  162.    (:STACK :SIGNED-LONG)
  163.    (:STACK-TRAP #x0))
  164. |#
  165. #| Not in ROM
  166. (deftrap _CDGETCOMPRESSIONTIME ((STORAGE :HANDLE) (SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DEPTH :SIGNED-INTEGER) (SPATIALQUALITY (:POINTER :SIGNED-LONG)) (TEMPORALQUALITY (:POINTER :SIGNED-LONG)) (TIME (:POINTER :SIGNED-LONG)))
  167.    (:STACK :SIGNED-LONG)
  168.    (:STACK-TRAP #x0))
  169. |#
  170. #| Not in ROM
  171. (deftrap _CDGETMAXCOMPRESSIONSIZE ((STORAGE :HANDLE) (SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DEPTH :SIGNED-INTEGER) (QUALITY :SIGNED-LONG) (SIZE (:POINTER :SIGNED-LONG)))
  172.    (:STACK :SIGNED-LONG)
  173.    (:STACK-TRAP #x0))
  174. |#
  175. #| Not in ROM
  176. (deftrap _CDPRECOMPRESS ((STORAGE :HANDLE) (PARAMS (:POINTER :CODECCOMPRESSPARAMS)))
  177.    (:STACK :SIGNED-LONG)
  178.    (:STACK-TRAP #x0))
  179. |#
  180. #| Not in ROM
  181. (deftrap _CDBANDCOMPRESS ((STORAGE :HANDLE) (PARAMS (:POINTER :CODECCOMPRESSPARAMS)))
  182.    (:STACK :SIGNED-LONG)
  183.    (:STACK-TRAP #x0))
  184. |#
  185. #| Not in ROM
  186. (deftrap _CDPREDECOMPRESS ((STORAGE :HANDLE) (PARAMS (:POINTER :CODECDECOMPRESSPARAMS)))
  187.    (:STACK :SIGNED-LONG)
  188.    (:STACK-TRAP #x0))
  189. |#
  190. #| Not in ROM
  191. (deftrap _CDBANDDECOMPRESS ((STORAGE :HANDLE) (PARAMS (:POINTER :CODECDECOMPRESSPARAMS)))
  192.    (:STACK :SIGNED-LONG)
  193.    (:STACK-TRAP #x0))
  194. |#
  195. #| Not in ROM
  196. (deftrap _CDCODECBUSY ((STORAGE :HANDLE) (SEQ :SIGNED-LONG))
  197.    (:STACK :SIGNED-LONG)
  198.    (:STACK-TRAP #x0))
  199. |#
  200. #| Not in ROM
  201. (deftrap _CDGETCOMPRESSEDIMAGESIZE ((STORAGE :HANDLE) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER) (BUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (DATASIZE (:POINTER :SIGNED-LONG)))
  202.    (:STACK :SIGNED-LONG)
  203.    (:STACK-TRAP #x0))
  204. |#
  205. #| Not in ROM
  206. (deftrap _CDGETSIMILARITY ((STORAGE :HANDLE) (SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER) (SIMILARITY (:POINTER :SIGNED-LONG)))
  207.    (:STACK :SIGNED-LONG)
  208.    (:STACK-TRAP #x0))
  209. |#
  210. #| Not in ROM
  211. (deftrap _CDTRIMIMAGE ((STORAGE :HANDLE) (DESC (:HANDLE :IMAGEDESCRIPTION)) (INDATA :POINTER) (INBUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (OUTDATA :POINTER) (OUTBUFFERSIZE :SIGNED-LONG) (FLUSHPROC (:POINTER :FLUSHPROCRECORD)) (TRIMRECT (:POINTER :RECT)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  212.    (:STACK :SIGNED-LONG)
  213.    (:STACK-TRAP #x0))
  214. |#
  215. ; $ENDC
  216.  
  217.  
  218. (export '($CODECINFORESOURCETYPE $CODECCONDITIONCODECCHANGEDMASK
  219.           $CODECCONDITIONLASTBAND $CODECCONDITIONFIRSTBAND $CODECCANSHIFT
  220.           $CODECCANMAKEMASK $CODECCANASYNC $CODECCANCOPYPREVCOMP
  221.           $CODECCANSRCEXTRACT $CODECCANFASTDITHER $CODECCANREMAPCOLOR
  222.           $CODECCANCLIPRECTANGULAR $CODECCANCLIPVERTICAL $CODECCANSPOOL
  223.           $CODECCANCOPYPREV $CODECCANTRANSFERMODE $CODECCANTRANSFORM
  224.           $CODECCANMATTE $CODECCANMASK $CODECCANSCALE $CODECTRIMIMAGE
  225.           $CODECGETSIMILARITY $CODECGETCOMPRESSEDIMAGESIZE $CODECCDSEQUENCEBUSY
  226.           $CODECBANDDECOMPRESS $CODECPREDECOMPRESS $CODECBANDCOMPRESS
  227.           $CODECPRECOMPRESS $CODECGETMAXCOMPRESSIONSIZE
  228.           $CODECGETCOMPRESSIONTIME $CODECGETCODECINFO))
  229. (provide-interface 'ImageCodec)